- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/DIA/diadct.F90
r9125 r9570 32 32 USE dianam ! build name of file 33 33 USE lib_mpp ! distributed memory computing library 34 #if defined key_ lim334 #if defined key_si3 35 35 USE ice 36 36 #endif … … 98 98 99 99 !!---------------------------------------------------------------------- 100 !! NEMO/O PA3.3 , NEMO Consortium (2010)100 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 101 101 !! $Id$ 102 102 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 724 724 END DO !end of loop on the level 725 725 726 #if defined key_ lim3726 #if defined key_si3 727 727 728 728 !ICE CASE … … 746 746 zTnorm=zumid_ice*e2u(k%I,k%J)+zvmid_ice*e1v(k%I,k%J) 747 747 748 #if defined key_ lim3748 #if defined key_si3 749 749 DO jl=1,jpl 750 750 transports_2d(1,jsec,jseg) = transports_2d(1,jsec,jseg) + (zTnorm)* & … … 929 929 END DO ! loop over jk 930 930 931 #if defined key_ lim3931 #if defined key_si3 932 932 933 933 !ICE CASE
Note: See TracChangeset
for help on using the changeset viewer.