Changeset 37 for trunk


Ignore:
Timestamp:
06/05/12 16:12:11 (12 years ago)
Author:
smasson
Message:

clean some write

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r36 r37  
    102102      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday  
    103103      CALL xios_set_context_attr("nemo", start_date=cldate ) 
    104       IF(lwp) WRITE(numout,*) 'SEB start date' , cldate 
    105104 
    106105      ! horizontal grid definition 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r7 r37  
    173173                  zclname=ssnd(ji)%clname 
    174174               ENDIF 
    175                WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out 
     175               IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out 
    176176               CALL prism_def_var_proto (ssnd(ji)%nid(jc), zclname, id_part, (/ 2, 0/),   & 
    177177                    PRISM_Out, ishape, PRISM_REAL, nerror) 
     
    194194                  zclname=srcv(ji)%clname 
    195195               ENDIF 
    196                WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In 
     196               IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In 
    197197               CALL prism_def_var_proto ( srcv(ji)%nid(jc), zclname, id_part, (/ 2, 0/),   & 
    198198                    &                      PRISM_In    , ishape   , PRISM_REAL, nerror) 
Note: See TracChangeset for help on using the changeset viewer.