- Timestamp:
- 2009-04-08T17:59:10+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/TOP_SRC/trcdia.F90
r1353 r1394 231 231 !! 232 232 !! At each time step call histdef to compute the mean if necessary 233 !! Each nwritetr ctime step, output the instantaneous or mean fields233 !! Each nwritetrd time step, output the instantaneous or mean fields 234 234 !! 235 235 !! IF kindic <0, output of fields before the model interruption. … … 471 471 !! 472 472 !! At each time step call histdef to compute the mean if necessary 473 !! Each nwrite trctime step, output the instantaneous or mean fields473 !! Each nwritedia time step, output the instantaneous or mean fields 474 474 !! 475 475 !! IF kindic <0, output of fields before the model interruption. … … 530 530 ! Define the T grid file for tracer auxiliary files 531 531 532 CALL dia_nam( clhstnam, nwrite , 'diad_T' )532 CALL dia_nam( clhstnam, nwritedia, 'diad_T' ) 533 533 IF(lwp) WRITE(numout,*) " Name of NETCDF file ", clhstnam 534 534 … … 620 620 !! 621 621 !! At each time step call histdef to compute the mean if necessary 622 !! Each nwrite trctime step, output the instantaneous or mean fields622 !! Each nwritebio time step, output the instantaneous or mean fields 623 623 !! 624 624 !! IF kindic <0, output of fields before the model interruption. … … 678 678 ! Define the NETCDF files for biological trends 679 679 680 CALL dia_nam(clhstnam,nwrite ,'biolog')680 CALL dia_nam(clhstnam,nwritebio,'biolog') 681 681 IF(lwp)WRITE(numout,*) " Name of NETCDF file for biological trends ", clhstnam 682 682 ! Horizontal grid : glamt and gphit
Note: See TracChangeset
for help on using the changeset viewer.