MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:37:38 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC7f58e89433 Jean*0001 #include "CPP_OPTIONS.h" 0002 0003 CStartOfInterface 7412e6d2ad Jean*0004 SUBROUTINE OCN_TO_ATM_MAPXYR8( 7f58e89433 Jean*0005 I oNx, oNy, 7412e6d2ad Jean*0006 I fld_ocn, 7f58e89433 Jean*0007 I aNx, aNy, 0008 O fld_atm ) 0009 C /==========================================================\ 0010 C | SUBROUTINE OCN_TO_ATM_MAPXYR8 | 0011 C | o Maps ocean field to atmos. field for XY 64-bit float | 0012 C | field. | 0013 C \==========================================================/ 0014 IMPLICIT NONE 0015 0016 C == Routine arguments == 0017 C fld_atm - Atmos. grid field (ocean field will be mapped to this 0018 C grid). 0019 C aNx - Atmos. grid global extent in X 0020 C aNy - Atmos. grid global extent in Y 0021 C fld_ocn - Ocean grid field 0022 C oNx - Ocean grid global extent in X 0023 C oNy - Ocean grid global extent in Y 0024 INTEGER aNx 0025 INTEGER aNy 0026 Real*8 fld_atm(aNx, aNy) 0027 INTEGER oNx 0028 INTEGER oNy 0029 Real*8 fld_ocn(oNx, oNy) 0030 CEndOfInterface 0031 0032 C == Local variables == 0033 INTEGER I,J 0034 7412e6d2ad Jean*0035 C Set to zero everywhere 7f58e89433 Jean*0036 DO J=1,aNy 0037 DO I=1,aNx 0038 fld_atm(I,J)=0. 0039 ENDDO 0040 ENDDO 0041 C Now copy intersection of _atm and _ocn into 0042 C _atm. 0043 DO J=1,MIN(aNy,oNy) 0044 DO I=1,MIN(aNx,oNx) 0045 fld_atm(I,J)=fld_ocn(I,J) 0046 ENDDO 0047 ENDDO 0048 0049 RETURN 0050 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|