- Timestamp:
- 2020-08-28T17:01:04+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2/src/OCE/SBC/cpl_oasis3.F90
r13311 r13443 76 76 TYPE, PUBLIC :: FLD_CPL !: Type for coupling field information 77 77 LOGICAL :: laction ! To be coupled or not 78 CHARACTER(len = 8) :: clname ! Name of the coupling field78 CHARACTER(len = 30) :: clname ! Name of the coupling field 79 79 CHARACTER(len = 1) :: clgrid ! Grid type 80 80 REAL(wp) :: nsgn ! Control of the sign change … … 164 164 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~~' 165 165 IF(lwp) WRITE(numout,*) 166 167 WRITE(numout,*) "RSRH inside cpl_define" ; flush(numout) 166 168 167 169 ncplmodel = kcplmodel … … 212 214 WRITE(numout,*) ' multiexchg: nldj, nlej, njmpp =', nldj, nlej, njmpp 213 215 ENDIF 214 216 WRITE(numout,*) "RSRH calling def partition" ; flush(numout) 217 218 215 219 CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo ) 220 WRITE(numout,*) "RSRH called def partition" ; flush(numout) 216 221 ! 217 222 ! ... Announce send variables. … … 247 252 #endif 248 253 IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 254 WRITE(numout,*) "RSRH calling def var send", zclname , ji; flush(numout) 249 255 CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 250 256 & OASIS_Out , ishape , OASIS_REAL, nerror ) 257 WRITE(numout,*) "RSRH called def var", zclname , ji, nerror; flush(numout) 251 258 IF ( nerror /= OASIS_Ok ) THEN 252 259 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) … … 292 299 #endif 293 300 IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 301 WRITE(numout,*) "RSRH calling def var recv", zclname , ji; flush(numout) 294 302 CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 295 303 & OASIS_In , ishape , OASIS_REAL, nerror ) 304 WRITE(numout,*) "RSRH called def var recv", zclname , ji, nerror; flush(numout) 296 305 IF ( nerror /= OASIS_Ok ) THEN 297 306 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) … … 309 318 ! End of definition phase 310 319 !------------------------------------------------------------------ 320 WRITE(numout,*) "RSRH calling endef "; flush(numout) 311 321 312 322 CALL oasis_enddef(nerror) 323 WRITE(numout,*) "RSRH called endef "; flush(numout) 313 324 IF( nerror /= OASIS_Ok ) CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in oasis_enddef') 314 325 !
Note: See TracChangeset
for help on using the changeset viewer.