- Timestamp:
- 2014-02-04T13:19:17+01:00 (10 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.