Changeset 1317
- Timestamp:
- 2009-02-17T17:31:42+01:00 (15 years ago)
- Location:
- trunk
- Files:
-
- 15 edited
-
CONFIG/GYRE/EXP00/namelist (modified) (1 diff)
-
CONFIG/GYRE_LOBSTER/EXP00/namelist (modified) (1 diff)
-
CONFIG/ORCA2_LIM/EXP00/1_namelist (modified) (1 diff)
-
CONFIG/ORCA2_LIM/EXP00/namelist (modified) (1 diff)
-
CONFIG/ORCA2_LIM_PISCES/EXP00/namelist (modified) (1 diff)
-
CONFIG/ORCA2_OFF_PISCES/EXP00/namelist (modified) (1 diff)
-
NEMO/C1D_SRC/diawri_c1d.F90 (modified) (2 diffs)
-
NEMO/OPA_SRC/DIA/diagap.F90 (modified) (3 diffs)
-
NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (3 diffs)
-
NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)
-
NEMO/OPA_SRC/TRD/trdmld.F90 (modified) (5 diffs)
-
NEMO/OPA_SRC/TRD/trdvor.F90 (modified) (3 diffs)
-
NEMO/TOP_SRC/SED/sedwri.F90 (modified) (1 diff)
-
NEMO/TOP_SRC/TRP/trdmld_trc.F90 (modified) (7 diffs)
-
NEMO/TOP_SRC/trcdia.F90 (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CONFIG/GYRE/EXP00/namelist
r1312 r1317 36 36 nleapy = 30 ! Leap year calendar (1) or not (0) 37 37 ninist = 0 ! output the initial state (1) or not (0) 38 nstock = 4320 ! frequency of creation of a restart file 39 nwrite = 60 ! frequency of write in the output file 38 nstock = 4320 ! frequency of creation of a restart file (modulo referenced to 1) 39 nwrite = 60 ! frequency of write in the output file (modulo referenced to nit000) 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 41 ln_mskland = .false. ! mask land points (1.e+20) in NetCDF outputs (costly: + ~15%) -
trunk/CONFIG/GYRE_LOBSTER/EXP00/namelist
r1312 r1317 36 36 nleapy = 30 ! Leap year calendar (1) or not (0) 37 37 ninist = 0 ! output the initial state (1) or not (0) 38 nstock = 4320 ! frequency of creation of a restart file 39 nwrite = 360 ! frequency of write in the output file 38 nstock = 4320 ! frequency of creation of a restart file (modulo referenced to 1) 39 nwrite = 360 ! frequency of write in the output file (modulo referenced to nit000) 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) -
trunk/CONFIG/ORCA2_LIM/EXP00/1_namelist
r1312 r1317 36 36 nleapy = 0 ! Leap year calendar (1) or not (0) 37 37 ninist = 0 ! output the initial state (1) or not (0) 38 nstock = 10950 ! frequency of creation of a restart file 39 nwrite = 10950 ! frequency of write in the output file 38 nstock = 10950 ! frequency of creation of a restart file (modulo referenced to 1) 39 nwrite = 10950 ! frequency of write in the output file (modulo referenced to nit000) 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist
r1312 r1317 36 36 nleapy = 0 ! Leap year calendar (1) or not (0) 37 37 ninist = 0 ! output the initial state (1) or not (0) 38 nstock = 5475 ! frequency of creation of a restart file 39 nwrite = 5475 ! frequency of write in the output file 38 nstock = 5475 ! frequency of creation of a restart file (modulo referenced to 1) 39 nwrite = 5475 ! frequency of write in the output file (modulo referenced to nit000) 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) -
trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist
r1312 r1317 36 36 nleapy = 0 ! Leap year calendar (1) or not (0) 37 37 ninist = 0 ! output the initial state (1) or not (0) 38 nstock = 5475 ! frequency of creation of a restart file 39 nwrite = 5475 ! frequency of write in the output file 38 nstock = 5475 ! frequency of creation of a restart file (modulo referenced to 1) 39 nwrite = 5475 ! frequency of write in the output file (modulo referenced to nit000) 40 40 ln_dimgnnn = .false. ! DIMG file format: 1 file for all processors (F) or by processor (T) 41 41 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) -
trunk/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r1312 r1317 28 28 nleapy = 0 ! Leap year calendar (1) or not (0) 29 29 ninist = 0 ! output the initial state (1) or not (0) 30 nstock = 7300 ! frequency of creation of a restart file 31 nwrite = 7300 ! frequency of write in the output file 30 nstock = 7300 ! frequency of creation of a restart file (modulo referenced to 1) 31 nwrite = 7300 ! frequency of write in the output file (modulo referenced to nit000) 32 32 ln_mskland = .false. ! mask land points in NetCDF outputs (costly: + ~15%) 33 33 / -
trunk/NEMO/C1D_SRC/diawri_c1d.F90
r1312 r1317 276 276 ! donne le nombre d'elements, et ndex la liste des indices a sortir 277 277 278 IF( lwp .AND. MOD( kt, nwrite ) == 0 ) THEN278 IF( lwp .AND. MOD( it, nwrite ) == 0 ) THEN 279 279 WRITE(numout,*) 'dia_wri : write model outputs in NetCDF files at ', kt, 'time-step' 280 280 WRITE(numout,*) '~~~~~~ ' … … 345 345 ! 3. Synchronise and close all files 346 346 ! --------------------------------------- 347 IF( MOD( kt, nwrite ) == 0 .OR. kindic < 0 ) CALL histsync( nid_T )347 IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 ) CALL histsync( nid_T ) 348 348 349 349 ! Create an output files (output.abort.nc) if S < 0 or u > 20 m/s -
trunk/NEMO/OPA_SRC/DIA/diagap.F90
r1312 r1317 198 198 ! ---------------------- 199 199 200 IF( MOD( kt, ngap ) == 0 ) THEN 200 it = kt - nit000 + 1 ! define time axis 201 IF( MOD( it, ngap ) == 0 ) THEN 201 202 202 203 ! initialization … … 239 240 ! ----------------------------====== 240 241 241 IF( MOD( kt, nprg ) == 0 ) THEN242 IF( MOD( it, nprg ) == 0 ) THEN 242 243 IF(lwp) THEN 243 244 WRITE(numout,*) 'dia_gap: time step = ', kt, 'model - data' … … 259 260 260 261 IF (lwp ) THEN ! Ok even in mpp after the call to mpp_sum 261 it = kt - nit000 + 1 ! define time axis262 262 CALL histwrite( numgap, "motempda", it, tdtag, jpk, ndex ) 263 263 CALL histwrite( numgap, "mosalida", it, sdtag, jpk, ndex ) -
trunk/NEMO/OPA_SRC/DIA/diaptr.F90
r1316 r1317 245 245 !!---------------------------------------------------------------------- 246 246 247 IF( kt == nit000 .OR. MOD( kt , nf_ptr ) == 0 ) THEN247 IF( kt == nit000 .OR. MOD( kt - nit000 + 1, nf_ptr ) == 0 ) THEN 248 248 249 249 zsverdrup = 1.e-6 … … 551 551 ENDIF 552 552 553 554 553 CALL histend( numptr ) 555 554 556 555 ENDIF 557 556 558 IF( MOD( kt, nf_ptr ) == 0 ) THEN557 IF( MOD( it, nf_ptr ) == 0 ) THEN 559 558 560 559 IF(lwp) THEN … … 565 564 ENDIF 566 565 567 ! define time axis568 it= kt - nit000 + 1569 566 ndex(1) = 0 570 567 CALL histwrite( numptr, "zotemglo", it, tn_jk , jpj*jpk, ndex ) -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1312 r1317 406 406 ! donne le nombre d'elements, et ndex la liste des indices a sortir 407 407 408 IF( lwp .AND. MOD( kt, nwrite ) == 0 ) THEN408 IF( lwp .AND. MOD( it, nwrite ) == 0 ) THEN 409 409 WRITE(numout,*) 'dia_wri : write model outputs in NetCDF files at ', kt, 'time-step' 410 410 WRITE(numout,*) '~~~~~~ ' … … 513 513 ! 3. Synchronise and close all files 514 514 ! --------------------------------------- 515 IF( MOD( kt, nwrite ) == 0 .OR. kindic < 0 ) THEN515 IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 ) THEN 516 516 CALL histsync( nid_T ) 517 517 CALL histsync( nid_U ) -
trunk/NEMO/OPA_SRC/TRD/trdmld.F90
r1312 r1317 389 389 smltrd(:,:,:) = smltrd(:,:,:) * ucf ! is no longer used, and is reset to 0. at next time step) 390 390 391 MODULO_NTRD : IF( MOD( kt, ntrd ) == 0 ) THEN ! nitend MUST be multiple of ntrd 391 it = kt - nit000 + 1 392 393 MODULO_NTRD : IF( MOD( it, ntrd ) == 0 ) THEN ! nitend MUST be multiple of ntrd 392 394 ! 393 395 ztmltot (:,:) = 0.e0 ; zsmltot (:,:) = 0.e0 ! reset arrays to zero … … 574 576 #if defined key_dimgout 575 577 576 IF( MOD( kt, ntrd ) == 0 ) THEN578 IF( MOD( it, ntrd ) == 0 ) THEN 577 579 iyear = ndastp/10000 578 580 imon = (ndastp-iyear*10000)/100 … … 591 593 ! ---------------------------------- 592 594 593 IF( lwp .AND. MOD( kt , ntrd ) == 0 ) THEN595 IF( lwp .AND. MOD( it , ntrd ) == 0 ) THEN 594 596 WRITE(numout,*) ' ' 595 597 WRITE(numout,*) 'trd_mld : write trends in the NetCDF file :' … … 600 602 END IF 601 603 602 it = kt - nit000 + 1603 604 604 !-- Write the trends for T/S instantaneous diagnostics 605 605 IF( ln_trdmld_instant ) THEN … … 683 683 #endif 684 684 685 IF( MOD( kt, ntrd ) == 0 ) THEN685 IF( MOD( it, ntrd ) == 0 ) THEN 686 686 ! 687 687 ! III.5 Reset cumulative arrays to zero -
trunk/NEMO/OPA_SRC/TRD/trdvor.F90
r1312 r1317 405 405 ! ============================================= 406 406 407 IF( MOD( kt - nit000+1, ntrd ) == 0 ) THEN 407 ! define time axis 408 it= kt - nit000 + 1 409 410 IF( MOD( it, ntrd ) == 0 ) THEN 408 411 409 412 ! III.1 compute total trend … … 452 455 IF( kt >= nit000+1 ) THEN 453 456 454 ! define time axis 455 it= kt-nit000+1 456 IF( lwp .AND. MOD( kt, ntrd ) == 0 ) THEN 457 IF( lwp .AND. MOD( it, ntrd ) == 0 ) THEN 457 458 WRITE(numout,*) '' 458 459 WRITE(numout,*) 'trd_vor : write trends in the NetCDF file at kt = ', kt … … 481 482 ENDIF 482 483 ! 483 IF( MOD( kt - nit000+1, ntrd ) == 0 ) rotot(:,:)=0484 IF( MOD( it, ntrd ) == 0 ) rotot(:,:)=0 484 485 ! 485 486 IF( kt == nitend ) CALL histclo( nidvor ) -
trunk/NEMO/TOP_SRC/SED/sedwri.F90
r1312 r1317 251 251 !! synchronise FILE 252 252 ! 253 IF( MOD( kt, nwrised ) == 0 ) THEN253 IF( MOD( it, nwrised ) == 0 ) THEN 254 254 WRITE(numsed,*) '**** sedwri : write NetCDF aditional arrays' 255 255 CALL histsync( nised ) -
trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1312 r1317 575 575 tmltrd_trc(:,:,:,:) = tmltrd_trc(:,:,:,:) * ucf_trc 576 576 577 MODULO_NTRD : IF( MOD( kt, ntrd_trc ) == 0 ) THEN ! nitend MUST be multiple of ntrd_trc 577 it = kt - nit000 + 1 578 579 MODULO_NTRD : IF( MOD( it, ntrd_trc ) == 0 ) THEN ! nitend MUST be multiple of ntrd_trc 578 580 ! 579 581 ztmltot (:,:,:) = 0.e0 ! reset arrays to zero … … 817 819 ! ---------------------------------- 818 820 819 IF( lwp .AND. MOD( kt , ntrd_trc ) == 0 ) THEN821 IF( lwp .AND. MOD( it , ntrd_trc ) == 0 ) THEN 820 822 WRITE(numout,*) ' ' 821 823 WRITE(numout,*) 'trd_mld_trc : write passive tracer trends in the NetCDF file :' … … 826 828 ENDIF 827 829 828 it = kt - nit000 + 1829 830 830 NETCDF_OUTPUT : IF( ln_trdmld_trc_instant ) THEN ! <<< write the trends for passive tracer instant. diags 831 831 ! … … 930 930 # endif /* key_dimgout */ 931 931 932 IF( MOD( kt, ntrd_trc ) == 0 ) THEN932 IF( MOD( it, ntrd_trc ) == 0 ) THEN 933 933 ! 934 934 ! Reset cumulative arrays to zero … … 1131 1131 ! ---------------------------------- 1132 1132 1133 IF( lwp .AND. MOD( kt , ntrd_trc ) == 0 ) THEN 1133 ! define time axis 1134 it = kt - nit000 + 1 1135 1136 IF( lwp .AND. MOD( it , ntrd_trc ) == 0 ) THEN 1134 1137 WRITE(numout,*) ' ' 1135 1138 WRITE(numout,*) 'trd_mld_bio : write ML bio trends in the NetCDF file :' … … 1141 1144 1142 1145 1143 ! define time axis1144 it = kt - nit000 + 11145 1146 1147 1146 ! 2. Start writing data 1148 1147 ! --------------------- … … 1175 1174 # endif /* key_dimgout */ 1176 1175 1177 IF( MOD( kt, ntrd_trc ) == 0 ) THEN1176 IF( MOD( it, ntrd_trc ) == 0 ) THEN 1178 1177 ! 1179 1178 ! III.5 Reset cumulative arrays to zero -
trunk/NEMO/TOP_SRC/trcdia.F90
r1316 r1317 201 201 ! --------------------------------------- 202 202 203 IF( lwp .AND. MOD( kt, nwritetrc ) == 0 ) THEN203 IF( lwp .AND. MOD( it, nwritetrc ) == 0 ) THEN 204 204 WRITE(numout,*) 'trcdit_wr : write NetCDF passive tracer concentrations at ', kt, 'time-step' 205 205 WRITE(numout,*) '~~~~~~~~~ ' … … 214 214 215 215 ! synchronise file 216 IF( MOD( kt, nwritetrc ) == 0 .OR. kindic < 0 ) CALL histsync( nit5 )216 IF( MOD( it, nwritetrc ) == 0 .OR. kindic < 0 ) CALL histsync( nit5 ) 217 217 218 218 … … 415 415 ! trends for tracer concentrations 416 416 417 IF( lwp .AND. MOD( kt, nwritetrd ) == 0 ) THEN417 IF( lwp .AND. MOD( it, nwritetrd ) == 0 ) THEN 418 418 WRITE(numout,*) 'trcdid_wr : write NetCDF dynamical trends at ', kt, 'time-step' 419 419 WRITE(numout,*) '~~~~~~ ' … … 446 446 447 447 ! synchronise FILE 448 IF( MOD( kt, nwritetrd ) == 0 .OR. kindic < 0 ) THEN448 IF( MOD( it, nwritetrd ) == 0 .OR. kindic < 0 ) THEN 449 449 DO jn = 1, jptra 450 450 IF (luttrd(jn)) CALL histsync( nit6(jn) ) … … 588 588 ! --------------------- 589 589 590 IF( lwp .AND. MOD( kt, nwritedia ) == 0 ) THEN590 IF( lwp .AND. MOD( it, nwritedia ) == 0 ) THEN 591 591 WRITE(numout,*) 'trcdii_wr : write NetCDF additional arrays at ', kt, 'time-step' 592 592 WRITE(numout,*) '~~~~~~ ' … … 606 606 607 607 ! synchronise FILE 608 IF( MOD( kt, nwritedia ) == 0 .OR. kindic < 0 ) CALL histsync( nitd )608 IF( MOD( it, nwritedia ) == 0 .OR. kindic < 0 ) CALL histsync( nitd ) 609 609 610 610 ! Closing all files … … 724 724 725 725 ! biological trends 726 IF( lwp .AND. MOD( kt, nwritebio ) == 0 ) THEN726 IF( lwp .AND. MOD( it, nwritebio ) == 0 ) THEN 727 727 WRITE(numout,*) 'trcdit_wr : write NetCDF biological trends at ', kt, 'time-step' 728 728 WRITE(numout,*) '~~~~~~ ' … … 735 735 736 736 ! synchronise FILE 737 IF( MOD( kt, nwritebio ) == 0 .OR. kindic < 0 ) CALL histsync( nitb )737 IF( MOD( it, nwritebio ) == 0 .OR. kindic < 0 ) CALL histsync( nitb ) 738 738 739 739 ! Closing all files
Note: See TracChangeset
for help on using the changeset viewer.
