- Timestamp:
- 06/05/12 16:12:11 (12 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r36 r37 102 102 WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday 103 103 CALL xios_set_context_attr("nemo", start_date=cldate ) 104 IF(lwp) WRITE(numout,*) 'SEB start date' , cldate105 104 106 105 ! horizontal grid definition -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r7 r37 173 173 zclname=ssnd(ji)%clname 174 174 ENDIF 175 WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out175 IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_Out 176 176 CALL prism_def_var_proto (ssnd(ji)%nid(jc), zclname, id_part, (/ 2, 0/), & 177 177 PRISM_Out, ishape, PRISM_REAL, nerror) … … 194 194 zclname=srcv(ji)%clname 195 195 ENDIF 196 WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In196 IF( ln_ctl ) WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In 197 197 CALL prism_def_var_proto ( srcv(ji)%nid(jc), zclname, id_part, (/ 2, 0/), & 198 198 & PRISM_In , ishape , PRISM_REAL, nerror)
Note: See TracChangeset
for help on using the changeset viewer.