Changeset 4482 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/iophy.F90
- Timestamp:
- Mar 29, 2023, 3:14:27 PM (18 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/iophy.F90
-
Property
svn:keywords
changed from
Author Date Id Revision
toId
r4103 r4482 1048 1048 1049 1049 !Et sinon on.... écrit 1050 IF (SIZE(field)/=klon .AND. SIZE(field)/=klev .AND. SIZE(field)/=klev+1) CALL abort_physic('iophy::histwrite2d_phy','Field first DIMENSION not equal to klon/klev',1) 1050 IF (SIZE(field)/=klon .AND. SIZE(field)/=klev .AND. SIZE(field)/=klev+1) & 1051 CALL abort_physic('iophy::histwrite2d_phy',& 1052 'Field first DIMENSION not equal to klon/klev',1) 1051 1053 IF (prt_level >= 10) THEn 1052 1054 WRITE (lunout,*)"histwrite2d_phy: .not.vars_defined ; time to gather and write ", trim(var%name) … … 1246 1248 1247 1249 !Et sinon on.... écrit 1248 IF (SIZE(field,1)/=klon .AND. SIZE(field,1)/=klev .AND. SIZE(field,1)/=klev+1) CALL abort_physic('iophy::histwrite3d_phy','Field first DIMENSION not equal to klon/klev',1) 1250 IF (SIZE(field,1)/=klon .AND. SIZE(field,1)/=klev & 1251 .AND. SIZE(field,1)/=klev+1) & 1252 CALL abort_physic('iophy::histwrite3d_phy', & 1253 'Field first DIMENSION not equal to klon/klev',1) 1249 1254 1250 1255 nlev=SIZE(field,2) 1251 IF (nlev.EQ.klev+1) THEN 1252 nlevx=klev 1253 ELSE 1254 nlevx=nlev 1255 ENDIF 1256 nlevx=nlev 1257 ! IF (nlev.EQ.klev+1) THEN 1258 ! nlevx=klev 1259 ! ELSE 1260 ! nlevx=nlev 1261 ! ENDIF 1256 1262 1257 1263 IF (SIZE(field,1) == klon) then -
Property
svn:keywords
changed from
Note: See TracChangeset
for help on using the changeset viewer.