Changeset 1317 for trunk/NEMO/OPA_SRC/TRD
- Timestamp:
- 2009-02-17T17:31:42+01:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
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 )
Note: See TracChangeset
for help on using the changeset viewer.