Changeset 4480
- Timestamp:
- 2014-02-04T13:19:17+01:00 (10 years ago)
- Location:
- branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r4474 r4480 401 401 nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar) 402 402 ENDIF 403 IF(lwp) WRITE(numout,*) 'Dim size for votemper is ', nblendta(igrd)403 !IF(lwp) WRITE(numout,*) 'Dim size for votemper is ', nblendta(igrd) 404 404 ipi = nblendta(igrd) 405 405 ! DCSE_NEMO: Call iom_get and explicitly flag that array has … … 423 423 nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar) 424 424 ENDIF 425 IF(lwp) WRITE(numout,*) 'Dim size for vosaline is ', nblendta(igrd)425 !IF(lwp) WRITE(numout,*) 'Dim size for vosaline is ', nblendta(igrd) 426 426 ipi = nblendta(igrd) 427 427 ! DCSE_NEMO: pass optional flag to signal that zdta is NOT … … 448 448 nblendta(igrd) = iom_file(numbdyu)%dimsz(1,idvar) 449 449 ENDIF 450 IF(lwp) WRITE(numout,*) 'Dim size for vozocrtx is ', nblendta(igrd)450 !IF(lwp) WRITE(numout,*) 'Dim size for vozocrtx is ', nblendta(igrd) 451 451 ipi = nblendta(igrd) 452 452 CALL iom_get ( numbdyu, jpdom_unknown,'vozocrtx',zdta(1:ipi,1:ipj,1:ipk),nbdy_a ) … … 462 462 nblendta(igrd) = iom_file(numbdyv)%dimsz(1,idvar) 463 463 ENDIF 464 IF(lwp) WRITE(numout,*) 'Dim size for vomecrty is ', nblendta(igrd)464 !IF(lwp) WRITE(numout,*) 'Dim size for vomecrty is ', nblendta(igrd) 465 465 ipi = nblendta(igrd) 466 466 CALL iom_get ( numbdyv, jpdom_unknown,'vomecrty',zdta(1:ipi,1:ipj,1:ipk),nbdy_a ) … … 476 476 ! 477 477 igrd=1 ! leads fraction 478 IF(lwp) WRITE(numout,*) 'Dim size for ildsconc is ',nblendta(igrd)478 !IF(lwp) WRITE(numout,*) 'Dim size for ildsconc is ',nblendta(igrd) 479 479 ipi=nblendta(igrd) 480 480 CALL iom_get ( numbdyt, jpdom_unknown,'ildsconc',zdta(1:ipi,:,1),nbdy_a ) … … 484 484 ! 485 485 igrd=1 ! ice thickness 486 IF(lwp) WRITE(numout,*) 'Dim size for iicethic is ',nblendta(igrd)486 !IF(lwp) WRITE(numout,*) 'Dim size for iicethic is ',nblendta(igrd) 487 487 ipi=nblendta(igrd) 488 488 CALL iom_get ( numbdyt, jpdom_unknown,'iicethic',zdta(1:ipi,:,1),nbdy_a ) … … 492 492 ! 493 493 igrd=1 ! snow thickness 494 IF(lwp) WRITE(numout,*) 'Dim size for isnowthi is ',nblendta(igrd)494 !IF(lwp) WRITE(numout,*) 'Dim size for isnowthi is ',nblendta(igrd) 495 495 ipi=nblendta(igrd) 496 496 CALL iom_get ( numbdyt, jpdom_unknown,'isnowthi',zdta(1:ipi,:,1),nbdy_a ) … … 1078 1078 nblendta(igrd) = iom_file(numbdyt_bt)%dimsz(1,idvar) 1079 1079 ENDIF 1080 WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd)1080 !WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd) 1081 1081 ipi=nblendta(igrd) 1082 1082 … … 1093 1093 nblendta(igrd) = iom_file(numbdyu_bt)%dimsz(1,idvar) 1094 1094 ENDIF 1095 WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd)1095 !WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd) 1096 1096 ipi=nblendta(igrd) 1097 1097 … … 1108 1108 nblendta(igrd) = iom_file(numbdyv_bt)%dimsz(1,idvar) 1109 1109 ENDIF 1110 WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd)1110 !WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd) 1111 1111 ipi=nblendta(igrd) 1112 1112 -
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r4436 r4480 172 172 IF(lwp) WRITE(numout,*) 'iom_file(1)%ndims(idvar) : ',iom_file%ndims(idvar) 173 173 nblendta(igrd) = iom_file(inum)%dimsz(1,idvar) 174 WRITE(numout,*) 'Dim size for z1 is ', nblendta(igrd)174 !WRITE(numout,*) 'Dim size for z1 is ', nblendta(igrd) 175 175 ENDIF 176 176 ipi = nblendta(igrd) … … 193 193 idvar = iom_varid( inum,'u1' ) 194 194 lendta(igrd) = iom_file(inum)%dimsz(1,idvar) 195 WRITE(numout,*) 'Dim size for u1 is ',lendta(igrd)195 !WRITE(numout,*) 'Dim size for u1 is ',lendta(igrd) 196 196 ENDIF 197 197 ipi = lendta(igrd) … … 214 214 idvar = iom_varid( inum,'v1' ) 215 215 lendta(igrd) = iom_file(inum)%dimsz(1,idvar) 216 WRITE(numout,*) 'Dim size for v1 is ', lendta(igrd)216 !WRITE(numout,*) 'Dim size for v1 is ', lendta(igrd) 217 217 ENDIF 218 218 ipi = lendta(igrd)
Note: See TracChangeset
for help on using the changeset viewer.