Changeset 12377 for NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (5 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90
r12132 r12377 114 114 !------------------------------------------------------------------ 115 115 CALL oasis_init_comp ( ncomp_id, TRIM(cd_modname), nerror ) 116 IF 116 IF( nerror /= OASIS_Ok ) & 117 117 CALL oasis_abort (ncomp_id, 'cpl_init', 'Failure in oasis_init_comp') 118 118 … … 122 122 123 123 CALL oasis_get_localcomm ( kl_comm, nerror ) 124 IF 124 IF( nerror /= OASIS_Ok ) & 125 125 CALL oasis_abort (ncomp_id, 'cpl_init','Failure in oasis_get_localcomm' ) 126 126 ! … … 149 149 150 150 ! patch to restore wraparound rows in cpl_send, cpl_rcv, cpl_define 151 IF 151 IF( ltmp_wapatch ) THEN 152 152 nldi_save = nldi ; nlei_save = nlei 153 153 nldj_save = nldj ; nlej_save = nlej … … 203 203 paral(5) = jpiglo ! global extent in x 204 204 205 IF( ln_ctl) THEN205 IF( sn_cfctl%l_oasout ) THEN 206 206 WRITE(numout,*) ' multiexchg: paral (1:5)', paral 207 207 WRITE(numout,*) ' multiexchg: jpi, jpj =', jpi, jpj … … 217 217 ! 218 218 DO ji = 1, ksnd 219 IF 219 IF( ssnd(ji)%laction ) THEN 220 220 221 221 IF( ssnd(ji)%nct > nmaxcat ) THEN … … 228 228 DO jm = 1, kcplmodel 229 229 230 IF 230 IF( ssnd(ji)%nct .GT. 1 ) THEN 231 231 WRITE(cli2,'(i2.2)') jc 232 232 zclname = TRIM(ssnd(ji)%clname)//'_cat'//cli2 … … 234 234 zclname = ssnd(ji)%clname 235 235 ENDIF 236 IF 236 IF( kcplmodel > 1 ) THEN 237 237 WRITE(cli2,'(i2.2)') jm 238 238 zclname = 'model'//cli2//'_'//TRIM(zclname) … … 241 241 IF( agrif_fixed() /= 0 ) THEN 242 242 zclname=TRIM(Agrif_CFixed())//'_'//TRIM(zclname) 243 END 244 #endif 245 IF( ln_ctl) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out243 ENDIF 244 #endif 245 IF( sn_cfctl%l_oasout ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 246 246 CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 247 247 & OASIS_Out , ishape , OASIS_REAL, nerror ) 248 IF 248 IF( nerror /= OASIS_Ok ) THEN 249 249 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) 250 250 CALL oasis_abort ( ssnd(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 251 251 ENDIF 252 IF( ln_ctl.AND. ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple"253 IF( ln_ctl.AND. ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple"252 IF( sn_cfctl%l_oasout .AND. ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 253 IF( sn_cfctl%l_oasout .AND. ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 254 254 END DO 255 255 END DO … … 262 262 ! 263 263 DO ji = 1, krcv 264 IF 264 IF( srcv(ji)%laction ) THEN 265 265 266 266 IF( srcv(ji)%nct > nmaxcat ) THEN … … 273 273 DO jm = 1, kcplmodel 274 274 275 IF 275 IF( srcv(ji)%nct .GT. 1 ) THEN 276 276 WRITE(cli2,'(i2.2)') jc 277 277 zclname = TRIM(srcv(ji)%clname)//'_cat'//cli2 … … 279 279 zclname = srcv(ji)%clname 280 280 ENDIF 281 IF 281 IF( kcplmodel > 1 ) THEN 282 282 WRITE(cli2,'(i2.2)') jm 283 283 zclname = 'model'//cli2//'_'//TRIM(zclname) … … 286 286 IF( agrif_fixed() /= 0 ) THEN 287 287 zclname=TRIM(Agrif_CFixed())//'_'//TRIM(zclname) 288 END 289 #endif 290 IF( ln_ctl) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In288 ENDIF 289 #endif 290 IF( sn_cfctl%l_oasout ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 291 291 CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 292 292 & OASIS_In , ishape , OASIS_REAL, nerror ) 293 IF 293 IF( nerror /= OASIS_Ok ) THEN 294 294 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) 295 295 CALL oasis_abort ( srcv(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 296 296 ENDIF 297 IF( ln_ctl.AND. srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple"298 IF( ln_ctl.AND. srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple"297 IF( sn_cfctl%l_oasout .AND. srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 298 IF( sn_cfctl%l_oasout .AND. srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 299 299 300 300 END DO … … 316 316 #endif 317 317 ! 318 IF 318 IF( ltmp_wapatch ) THEN 319 319 nldi = nldi_save ; nlei = nlei_save 320 320 nldj = nldj_save ; nlej = nlej_save … … 338 338 !!-------------------------------------------------------------------- 339 339 ! patch to restore wraparound rows in cpl_send, cpl_rcv, cpl_define 340 IF 340 IF( ltmp_wapatch ) THEN 341 341 nldi_save = nldi ; nlei_save = nlei 342 342 nldj_save = nldj ; nlej_save = nlej … … 355 355 CALL oasis_put ( ssnd(kid)%nid(jc,jm), kstep, pdata(nldi:nlei, nldj:nlej,jc), kinfo ) 356 356 357 IF ( ln_ctl) THEN357 IF ( sn_cfctl%l_oasout ) THEN 358 358 IF ( kinfo == OASIS_Sent .OR. kinfo == OASIS_ToRest .OR. & 359 359 & kinfo == OASIS_SentOut .OR. kinfo == OASIS_ToRestOut ) THEN … … 374 374 ENDDO 375 375 ENDDO 376 IF 376 IF( ltmp_wapatch ) THEN 377 377 nldi = nldi_save ; nlei = nlei_save 378 378 nldj = nldj_save ; nlej = nlej_save … … 399 399 !!-------------------------------------------------------------------- 400 400 ! patch to restore wraparound rows in cpl_send, cpl_rcv, cpl_define 401 IF 401 IF( ltmp_wapatch ) THEN 402 402 nldi_save = nldi ; nlei_save = nlei 403 403 nldj_save = nldj ; nlej_save = nlej … … 409 409 ! 410 410 DO jc = 1, srcv(kid)%nct 411 IF 411 IF( ltmp_wapatch ) THEN 412 412 IF( nimpp == 1 ) nldi = 1 413 413 IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi … … 426 426 & kinfo == OASIS_RecvOut .OR. kinfo == OASIS_FromRestOut 427 427 428 IF ( ln_ctl) WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm)428 IF ( sn_cfctl%l_oasout ) WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm) 429 429 430 IF 430 IF( llaction ) THEN 431 431 432 432 kinfo = OASIS_Rcv … … 438 438 ENDIF 439 439 440 IF ( ln_ctl) THEN440 IF ( sn_cfctl%l_oasout ) THEN 441 441 WRITE(numout,*) '****************' 442 442 WRITE(numout,*) 'oasis_get: Incoming ', srcv(kid)%clname … … 456 456 ENDDO 457 457 458 IF 458 IF( ltmp_wapatch ) THEN 459 459 nldi = nldi_save ; nlei = nlei_save 460 460 nldj = nldj_save ; nlej = nlej_save … … 489 489 ! 490 490 DO ji = 1, nsnd 491 IF 491 IF(ssnd(ji)%laction ) THEN 492 492 DO jm = 1, ncplmodel 493 493 IF( ssnd(ji)%nid(1,jm) /= -1 ) THEN … … 501 501 ENDDO 502 502 DO ji = 1, nrcv 503 IF 503 IF(srcv(ji)%laction ) THEN 504 504 DO jm = 1, ncplmodel 505 505 IF( srcv(ji)%nid(1,jm) /= -1 ) THEN … … 535 535 ! 536 536 DEALLOCATE( exfld ) 537 IF 537 IF(nstop == 0) THEN 538 538 CALL oasis_terminate( nerror ) 539 539 ELSE
Note: See TracChangeset
for help on using the changeset viewer.