Changeset 4480


Ignore:
Timestamp:
2014-02-04T13:19:17+01:00 (7 years ago)
Author:
trackstand2
Message:

Remove Dim size msgs from bdy{dta,tides}

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  
    401401                  nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar) 
    402402               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) 
    404404               ipi = nblendta(igrd) 
    405405               ! DCSE_NEMO: Call iom_get and explicitly flag that array has  
     
    423423                  nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar) 
    424424               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) 
    426426               ipi = nblendta(igrd) 
    427427               ! DCSE_NEMO: pass optional flag to signal that zdta is NOT 
     
    448448                 nblendta(igrd) = iom_file(numbdyu)%dimsz(1,idvar) 
    449449               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) 
    451451               ipi = nblendta(igrd) 
    452452               CALL iom_get ( numbdyu, jpdom_unknown,'vozocrtx',zdta(1:ipi,1:ipj,1:ipk),nbdy_a ) 
     
    462462                 nblendta(igrd) = iom_file(numbdyv)%dimsz(1,idvar) 
    463463               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) 
    465465               ipi = nblendta(igrd) 
    466466               CALL iom_get ( numbdyv, jpdom_unknown,'vomecrty',zdta(1:ipi,1:ipj,1:ipk),nbdy_a ) 
     
    476476              ! 
    477477              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) 
    479479              ipi=nblendta(igrd) 
    480480              CALL iom_get ( numbdyt, jpdom_unknown,'ildsconc',zdta(1:ipi,:,1),nbdy_a ) 
     
    484484              ! 
    485485              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) 
    487487              ipi=nblendta(igrd) 
    488488              CALL iom_get ( numbdyt, jpdom_unknown,'iicethic',zdta(1:ipi,:,1),nbdy_a ) 
     
    492492              ! 
    493493              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) 
    495495              ipi=nblendta(igrd) 
    496496              CALL iom_get ( numbdyt, jpdom_unknown,'isnowthi',zdta(1:ipi,:,1),nbdy_a ) 
     
    10781078            nblendta(igrd) = iom_file(numbdyt_bt)%dimsz(1,idvar) 
    10791079          ENDIF 
    1080           WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd) 
     1080          !WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd) 
    10811081          ipi=nblendta(igrd) 
    10821082 
     
    10931093            nblendta(igrd) = iom_file(numbdyu_bt)%dimsz(1,idvar) 
    10941094          ENDIF 
    1095           WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd) 
     1095          !WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd) 
    10961096          ipi=nblendta(igrd) 
    10971097 
     
    11081108            nblendta(igrd) = iom_file(numbdyv_bt)%dimsz(1,idvar) 
    11091109          ENDIF 
    1110           WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd) 
     1110          !WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd) 
    11111111          ipi=nblendta(igrd) 
    11121112 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r4436 r4480  
    172172            IF(lwp) WRITE(numout,*) 'iom_file(1)%ndims(idvar) : ',iom_file%ndims(idvar) 
    173173            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) 
    175175         ENDIF 
    176176         ipi = nblendta(igrd) 
     
    193193            idvar = iom_varid( inum,'u1' ) 
    194194            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) 
    196196         ENDIF 
    197197         ipi = lendta(igrd) 
     
    214214            idvar = iom_varid( inum,'v1' ) 
    215215            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) 
    217217         ENDIF 
    218218         ipi = lendta(igrd) 
Note: See TracChangeset for help on using the changeset viewer.