New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90 – NEMO

Ignore:
Timestamp:
2015-05-18T17:19:50+02:00 (9 years ago)
Author:
diovino
Message:

Dev. branch CMCC4_simplification ticket #1456

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90

    r4990 r5282  
    331331      !!  
    332332      !! ** Purpose :  Compute and cumulate the mixed layer trends over an analysis 
    333       !!               period, and write NetCDF (or dimg) outputs. 
     333      !!               period, and write NetCDF outputs. 
    334334      !! 
    335335      !! ** Method/usage : 
    … …  
    391391      ! 
    392392      CHARACTER (LEN=10) ::   clvar 
    393 #if defined key_dimgout 
    394       INTEGER ::   iyear,imon,iday 
    395       CHARACTER(LEN=80) ::   cltext, clmode 
    396 #endif 
    397393      !!---------------------------------------------------------------------- 
    398394 
    … …  
    775771      ! ====================================================================== 
    776772 
    777       ! IV.1 Code for dimg mpp output 
    778       ! ----------------------------- 
    779  
    780 # if defined key_dimgout 
    781       STOP 'Not implemented' 
    782 # else 
     773!# if 
     774!# else 
    783775       
    784       ! IV.2 Code for IOIPSL/NetCDF output 
     776      ! IV.1 Code for IOIPSL/NetCDF output 
    785777      ! ---------------------------------- 
    786778 
    … …  
    866858      icount = 1 
    867859 
    868 # endif /* key_dimgout */ 
     860!# endif 
    869861 
    870862      IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN 
    … …  
    897889      !! 
    898890      !! ** Purpose :  Compute and cumulate the mixed layer biological trends over an analysis 
    899       !!               period, and write NetCDF (or dimg) outputs. 
     891      !!               period, and write NetCDF outputs. 
    900892      !! 
    901893      !! ** Method/usage : 
    … …  
    944936      LOGICAL  :: llwarn  = .TRUE., lldebug = .TRUE. 
    945937      REAL(wp) :: zfn, zfn2 
    946 #if defined key_dimgout 
    947       INTEGER ::  iyear,imon,iday 
    948       CHARACTER(LEN=80) :: cltext, clmode 
    949 #endif 
    950938      !!---------------------------------------------------------------------- 
    951939      ! ... Warnings 
    … …  
    10561044      ! ====================================================================== 
    10571045 
    1058       ! IV.1 Code for dimg mpp output 
    1059       ! ----------------------------- 
    1060  
    1061 # if defined key_dimgout 
    1062       STOP 'Not implemented' 
    1063 # else 
    1064  
    1065       ! IV.2 Code for IOIPSL/NetCDF output 
     1046!# if 
     1047!# else 
     1048 
     1049      ! IV.1 Code for IOIPSL/NetCDF output 
    10661050      ! ---------------------------------- 
    10671051 
    … …  
    11081092 
    11091093 
    1110 # endif /* key_dimgout */ 
     1094!# endif 
    11111095 
    11121096      IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN 
    … …  
    12591243      ! ====================================================================== 
    12601244 
    1261 #if defined key_dimgout  
    1262       ??? 
    1263 #else 
     1245!#if  
     1246!#else 
    12641247      ! clmxl = legend root for netCDF output 
    12651248      IF( nn_ctls_trc == 0 ) THEN                                   ! control surface = mixed-layer with density criterion 
    … …  
    14041387#endif 
    14051388 
    1406 #endif        /* key_dimgout */ 
     1389!#endif 
    14071390   END SUBROUTINE trd_mxl_trc_init 
    14081391 
Note: See TracChangeset for help on using the changeset viewer.