Changeset 2528 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
- Property svn:eol-style deleted
r1818 r2528 60 60 # include "vectopt_loop_substitute.h90" 61 61 !!---------------------------------------------------------------------- 62 !! LIM 2.0, UCL-LOCEAN-IPSL (2006)62 !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010) 63 63 !! $Id$ 64 !! Software governed by the CeCILL licence ( modipsl/doc/NEMO_CeCILL.txt)64 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 65 65 !!---------------------------------------------------------------------- 66 66 … … 112 112 CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 113 113 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & 114 & 1, jpi, 1, jpj, niter, zjulian, rdt_ice, nhorid, nice , domain_id=nidom )114 & 1, jpi, 1, jpj, niter, zjulian, rdt_ice, nhorid, nice , domain_id=nidom, snc4chunks=snc4set) 115 115 CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down") 116 116 CALL wheneq ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim) … … 120 120 & , nhorid, 1, 1, 1, -99, 32, clop, zsto, zout ) 121 121 END DO 122 CALL histend( nice )122 CALL histend( nice, snc4set ) 123 123 ! 124 124 ENDIF … … 305 305 CALL histdef( kid, "isnowpre", "Snow precipitation" , "kg/m2/s", jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 306 306 307 CALL histend( kid ) ! end of the file definition307 CALL histend( kid, snc4set ) ! end of the file definition 308 308 309 309 CALL histwrite( kid, "isnowthi", kt, hsnif , jpi*jpj, (/1/) )
Note: See TracChangeset
for help on using the changeset viewer.