Changeset 260
- Timestamp:
- 2005-09-08T15:16:47+02:00 (19 years ago)
- Location:
- trunk/NEMO/TOP_SRC/SMS
- Files:
-
- 17 added
- 17 deleted
- 56 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/h3cadj.F
r247 r260 1 CCC $Header$ 2 CCC TOP 1.0 , LOCEAN-IPSL (2005) 3 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 4 C --------------------------------------------------------------------------- 1 CCC $Header$ 2 C $Id: 5 3 SUBROUTINE h3cadj 6 4 #if defined key_passivetrc -
trunk/NEMO/TOP_SRC/SMS/h3cbio.F
r247 r260 1 CCC $Header$ 2 CCC TOP 1.0 , LOCEAN-IPSL (2005) 3 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 4 C --------------------------------------------------------------------------- 1 C $Id$ 5 2 CDIR$ LIST 6 3 SUBROUTINE h3cbio -
trunk/NEMO/TOP_SRC/SMS/h3cche.F
r247 r260 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 C $Id$ 6 2 CDIR$ LIST 7 3 SUBROUTINE h3cche -
trunk/NEMO/TOP_SRC/SMS/h3cexp.F
r247 r260 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 CCC $Header$ 6 2 SUBROUTINE h3cexp 7 3 #if defined key_passivetrc && defined key_trc_hamocc3 -
trunk/NEMO/TOP_SRC/SMS/h3cflx.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3cice.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3cint.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3clys.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3copt.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CDIR$ LIST … … 66 61 # if defined key_off_tra 67 62 IF (nleapy.EQ.1 .AND. MOD(iyy,4).EQ.0) THEN 68 rum = FLOAT( ijulian)/366.63 rum = FLOAT(nday_year)/366. 69 64 ELSE 70 rum = FLOAT( ijulian)/365.65 rum = FLOAT(nday_year)/365. 71 66 ENDIF 72 67 # else -
trunk/NEMO/TOP_SRC/SMS/h3cprg.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3crem.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/h3cwin.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 SUBROUTINE h3cwin -
trunk/NEMO/TOP_SRC/SMS/p3zbio.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 SUBROUTINE p3zbio -
trunk/NEMO/TOP_SRC/SMS/p3zrem.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 SUBROUTINE p3zrem -
trunk/NEMO/TOP_SRC/SMS/p4zbio.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 SUBROUTINE p4zbio 7 2 CDIR$ LIST … … 33 28 USE trp_trc 34 29 USE sms 30 USE lib_mpp 31 USE lbclnk 35 32 IMPLICIT NONE 36 33 CDIR$ LIST … … 46 43 REAL irondep(jpi,jpj,jpk),sidep(jpi,jpj,jpk),prodt 47 44 INTEGER jn 48 REAL ztraa, ztrab, ztran49 45 C 50 46 CC---------------------------------------------------------------------- … … 883 879 ENDDO 884 880 C 881 DO jn=1 , jptra 882 CALL lbc_lnk(trn(:,:,:,jn), 'T', 1. ) 883 END DO 884 885 885 # if defined key_trc_diaadd 886 886 DO jj=1,jpj … … 908 908 RETURN 909 909 END 910 911 912 -
trunk/NEMO/TOP_SRC/SMS/p4zche.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zche … … 220 215 RETURN 221 216 END 222 -
trunk/NEMO/TOP_SRC/SMS/p4zday.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zday … … 55 50 iyy = ndastp/10000 56 51 57 write(numout,*)58 write(numout,*) 'p4zday - Julian day ', nday_year59 write(numout,*)52 IF(lwp) write(numout,*) 53 IF(lwp) write(numout,*) 'p4zday - Julian day ', nday_year 54 IF(lwp) write(numout,*) 60 55 61 56 … … 85 80 RETURN 86 81 END 87 -
trunk/NEMO/TOP_SRC/SMS/p4zdiat.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zdiat … … 117 112 RETURN 118 113 END 119 -
trunk/NEMO/TOP_SRC/SMS/p4zflx.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zflx … … 232 227 RETURN 233 228 END 234 -
trunk/NEMO/TOP_SRC/SMS/p4zint.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zint(kt) … … 105 100 RETURN 106 101 END 107 108 -
trunk/NEMO/TOP_SRC/SMS/p4zlys.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zlys … … 158 153 RETURN 159 154 END 160 -
trunk/NEMO/TOP_SRC/SMS/p4zmeso.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zmeso … … 196 191 RETURN 197 192 END 198 -
trunk/NEMO/TOP_SRC/SMS/p4zmicro.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zmicro … … 178 173 RETURN 179 174 END 180 -
trunk/NEMO/TOP_SRC/SMS/p4znano.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4znano … … 95 90 RETURN 96 91 END 97 -
trunk/NEMO/TOP_SRC/SMS/p4zopt.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zopt … … 51 46 CC local declarations 52 47 CC ================== 53 INTEGER ji, jj, jk, kmoy(jpi,jpj),mrgb48 INTEGER ji, jj, jk, mrgb 54 49 REAL xchl,ekg,ekr,ekb,xlim1,xlim2,xlim3,xlim4 55 REAL ekb1,ekr1,ekg156 50 REAL parlux,e1(jpi,jpj,jpk),e2(jpi,jpj,jpk),e3(jpi,jpj,jpk) 57 51 REAL zdepmoy(jpi,jpj) … … 248 242 RETURN 249 243 END 250 -
trunk/NEMO/TOP_SRC/SMS/p4zprg.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zprg(kt) … … 45 40 CC 46 41 USE oce_trc 42 USE lbclnk 43 USE lib_mpp 47 44 CC 48 45 IMPLICIT NONE … … 69 66 C ------------------------------ 70 67 C 71 72 73 68 CALL p4zint(kt) 74 69 C … … 78 73 C ------------------------ 79 74 C 80 81 82 75 CALL p4zlys 83 76 C...................................................................... … … 95 88 C ------------------------------------ 96 89 C 97 98 99 90 CALL p4zsed 100 91 C 101 92 trb=trn 102 93 end DO … … 110 101 C 111 102 CALL p4zflx 112 113 103 104 DO jn=1 , jptra 105 CALL lbc_lnk(trn(:,:,:,jn), 'T', 1. ) 106 CALL lbc_lnk(trb(:,:,:,jn), 'T', 1. ) 107 CALL lbc_lnk(tra(:,:,:,jn), 'T', 1. ) 108 END DO 114 109 C 115 110 C...................................................................... … … 119 114 RETURN 120 115 END 121 -
trunk/NEMO/TOP_SRC/SMS/p4zprod.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zprod … … 239 234 RETURN 240 235 END 241 -
trunk/NEMO/TOP_SRC/SMS/p4zrem.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zrem … … 191 186 zsatur2=zsatur*(1.+tn(ji,jj,jk)/400.)**2* 192 187 & (1.+tn(ji,jj,jk)/400.)**2 188 193 189 znusil=0.225*(1.+tn(ji,jj,jk)/15.)*zsatur+0.775 194 190 & *exp(9.25*log(zsatur2)) … … 247 243 RETURN 248 244 END 249 -
trunk/NEMO/TOP_SRC/SMS/p4zsed.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zsed … … 40 35 USE trp_trc 41 36 USE sms 37 USE lib_mpp 42 38 IMPLICIT NONE 43 39 CC---------------------------------------------------------------------- … … 73 69 ikt=max(mbathy(ji,jj)-1,1) 74 70 sumsedsi=sumsedsi+trn(ji,jj,ikt,jpdsi)*e1t(ji,jj) 75 & *e2t(ji,jj)*wsbio4(ji,jj,ikt)/rjjss 71 & *e2t(ji,jj)*wsbio4(ji,jj,ikt)*tmask(ji,jj,ikt) 72 & *tmask_i(ji,jj)/rjjss 76 73 sumsedcal=sumsedcal+trn(ji,jj,ikt,jpcal)*e1t(ji,jj) 77 & *e2t(ji,jj)*wsbio4(ji,jj,ikt)*2./rjjss 74 & *e2t(ji,jj)*wsbio4(ji,jj,ikt)*tmask(ji,jj,ikt)*2. 75 & *tmask_i(ji,jj)/rjjss 78 76 sumsedpo4=sumsedpo4+(trn(ji,jj,ikt,jpgoc)*wsbio4(ji,jj,ikt) 79 77 & +trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))/rjjss 80 & *e1t(ji,jj)*e2t(ji,jj) 81 END DO 82 END DO 83 78 & *tmask(ji,jj,ikt)*tmask_i(ji,jj)*e1t(ji,jj)*e2t(ji,jj) 79 END DO 80 END DO 81 82 IF( lk_mpp ) THEN 83 CALL mpp_sum( sumsedsi ) ! sums over the global domain 84 CALL mpp_sum( sumsedcal ) ! sums over the global domain 85 CALL mpp_sum( sumsedpo4 ) ! sums over the global domain 86 ENDIF 84 87 C 85 88 C Then this loss is scaled at each bottom grid cell for … … 105 108 DO jj=1,jpj 106 109 DO ji=1,jpi 107 ikt=max(mbathy(ji,jj) ,1)110 ikt=max(mbathy(ji,jj)-1,1) 108 111 xconctmp=trn(ji,jj,ikt,jpcal) 109 112 trn(ji,jj,ikt,jpcal)=trn(ji,jj,ikt,jpcal) … … 123 126 DO jj=1,jpj 124 127 DO ji=1,jpi 125 ikt=max(mbathy(ji,jj) ,1)128 ikt=max(mbathy(ji,jj)-1,1) 126 129 trn(ji,jj,ikt,jpgoc)=trn(ji,jj,ikt,jpgoc) 127 130 & -trn(ji,jj,ikt,jpgoc)*wsbio4(ji,jj,ikt)*rfact2 … … 138 141 END DO 139 142 END DO 140 141 143 C 142 144 C Nitrogen fixation (simple parameterization). The total gain … … 147 149 denitot=0. 148 150 DO jk=1,jpk-1 149 DO jj= 2,jpj-1150 DO ji= 2,jpi-1151 DO jj=1,jpj 152 DO ji=1,jpi 151 153 denitot=denitot+denitr(ji,jj,jk)*rdenit*e1t(ji,jj)*e2t(ji,jj) 152 & *fse3t(ji,jj,jk)*tmask(ji,jj,jk) 154 & *fse3t(ji,jj,jk)*tmask(ji,jj,jk)*tmask_i(ji,jj) 153 155 END DO 154 156 END DO 155 157 END DO 158 159 IF( lk_mpp ) CALL mpp_sum( denitot ) ! sum over the global domain 156 160 C 157 161 C Potential nitrogen fication dependant on temperature … … 161 165 nitrpot(:,:)= 0. 162 166 nitrpottot=0. 163 DO jj= 2,jpj-1164 DO ji= 2,jpi-1167 DO jj=1,jpj 168 DO ji=1,jpi 165 169 nitrpot(ji,jj)=prmax(ji,jj,1)*max(0.,(0.1*tn(ji,jj,1) 166 170 & -2.))*conc0/(trn(ji,jj,1,jpno3)+conc0)*rfact2 … … 168 172 & *trn(ji,jj,1,jppo4)/(conc0+trn(ji,jj,1,jppo4)) 169 173 nitrpottot=nitrpottot+nitrpot(ji,jj)*e1t(ji,jj) 170 & *e2t(ji,jj)*tmask (ji,jj,1)*fse3t(ji,jj,1)174 & *e2t(ji,jj)*tmask_i(ji,jj)*fse3t(ji,jj,1) 171 175 END DO 172 176 END DO 177 C 178 IF( lk_mpp ) CALL mpp_sum( nitrpottot ) ! sum over the global domain 173 179 C 174 180 C Nitrogen change due to nitrogen fixation … … 202 208 RETURN 203 209 END 204 -
trunk/NEMO/TOP_SRC/SMS/p4zsink.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CDIR$ LIST 7 2 SUBROUTINE p4zsink … … 182 177 RETURN 183 178 END 184 -
trunk/NEMO/TOP_SRC/SMS/p4zsink2.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 SUBROUTINE p4zsink2(wstmp,sinktemp,jn) 7 2 CDIR$ LIST … … 141 136 RETURN 142 137 END 143 -
trunk/NEMO/TOP_SRC/SMS/par_sms.F90
r247 r260 10 10 !! 11 11 !! 12 !!----------------------------------------------------------------------13 !! TOP 1.0 , LOCEAN-IPSL (2005)14 !! $Header$15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt16 !!----------------------------------------------------------------------17 12 USE par_trc_trp 18 13 IMPLICIT NONE -
trunk/NEMO/TOP_SRC/SMS/par_sms_cfc.h90
r247 r260 9 9 !! jptra : number of tracers 10 10 !! 11 !!---------------------------------------------------------------------- 12 !! TOP 1.0 , LOCEAN-IPSL (2005) 13 !! $Header$ 14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 !!---------------------------------------------------------------------- 11 16 12 INTEGER nsort,nsatm 17 13 PARAMETER(nsort=8,nsatm=4) -
trunk/NEMO/TOP_SRC/SMS/par_sms_gosac.h90
r247 r260 9 9 !! jptra : number of tracers 10 10 !! 11 !!----------------------------------------------------------------------12 !! TOP 1.0 , LOCEAN-IPSL (2005)13 !! $Header$14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt15 !!----------------------------------------------------------------------16 11 INTEGER nsort,nsatm 17 12 PARAMETER(nsort=8,nsatm=4) -
trunk/NEMO/TOP_SRC/SMS/par_sms_hamocc3.h90
r247 r260 12 12 !! --------------------------- 13 13 !! 14 !!----------------------------------------------------------------------15 !! TOP 1.0 , LOCEAN-IPSL (2005)16 !! $Header$17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt18 !!----------------------------------------------------------------------19 14 INTEGER jpdiabio 20 15 PARAMETER (jpdiabio = 1) -
trunk/NEMO/TOP_SRC/SMS/par_sms_lobster1.h90
r247 r260 1 1 !!--------------------------------------------------------------------- 2 !!----------------------------------------------------------------------3 !! TOP 1.0 , LOCEAN-IPSL (2005)4 !! $Header$5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt6 !!----------------------------------------------------------------------7 2 !! 8 3 !! PARAMETER passivetrc.lobster1 -
trunk/NEMO/TOP_SRC/SMS/par_sms_npzd.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 1 !!--------------------------------------------------------------------- 7 2 !! -
trunk/NEMO/TOP_SRC/SMS/par_sms_p3zd.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 1 !!--------------------------------------------------------------------- 7 2 !! -
trunk/NEMO/TOP_SRC/SMS/par_sms_pisces.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 1 !!--------------------------------------------------------------------- 7 2 !! -
trunk/NEMO/TOP_SRC/SMS/sms.F90
r247 r260 1 1 MODULE sms 2 !!----------------------------------------------------------------------3 !! TOP 1.0 , LOCEAN-IPSL (2005)4 !! $Header$5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt6 !!----------------------------------------------------------------------7 2 #if defined key_passivetrc 8 3 -
trunk/NEMO/TOP_SRC/SMS/sms_age.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 1 !!--------------------------------------------------------------------- 7 2 !! -
trunk/NEMO/TOP_SRC/SMS/sms_cfc.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 1 #if defined key_cfc 7 2 integer it -
trunk/NEMO/TOP_SRC/SMS/sms_gosac.h90
r247 r260 1 !!----------------------------------------------------------------------2 !! TOP 1.0 , LOCEAN-IPSL (2005)3 !! $Header$4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 !!----------------------------------------------------------------------6 7 1 #if defined key_gosac 8 2 !! -
trunk/NEMO/TOP_SRC/SMS/sms_hamocc3.h90
r247 r260 13 13 !! 14 14 !!--------------------------------------------------------------------- 15 !! TOP 1.0 , LOCEAN-IPSL (2005) 16 !! $Header$ 17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 !! opa8, ipsl (11/96) 18 16 !!--------------------------------------------------------------------- 19 17 !! -
trunk/NEMO/TOP_SRC/SMS/sms_lobster1.h90
r247 r260 15 15 !! 16 16 !!--------------------------------------------------------------------- 17 !! TOP 1.0 , LOCEAN-IPSL (2005) 18 !! $Header$ 19 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 17 !! opa8, ipsl (11/96) 20 18 !!--------------------------------------------------------------------- 21 19 !! … … 111 109 !! 112 110 !! nwritebio: time step frequency for biological outputs (NAMELIST) 113 !! nitb : id for additional array output FILE114 !! ndepitb : id for depth mesh115 !! nhoritb : id for horizontal mesh116 111 !! 117 INTEGER nwritebio ,nitb,ndepitb,nhoritb118 COMMON/cibcdf/nwritebio ,nitb,ndepitb,nhoritb112 INTEGER nwritebio 113 COMMON/cibcdf/nwritebio 119 114 120 115 # endif -
trunk/NEMO/TOP_SRC/SMS/sms_npzd.h90
r247 r260 14 14 !! 15 15 !!--------------------------------------------------------------------- 16 !! TOP 1.0 , LOCEAN-IPSL (2005) 17 !! $Header$ 18 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 !! opa8, ipsl (11/96) 19 17 !!--------------------------------------------------------------------- 20 18 !! … … 108 106 !! 109 107 !! nwritebio: time step frequency for biological outputs (NAMELIST) 110 !! nitb : id for additional array output FILE111 !! ndepitb : id for depth mesh112 !! nhoritb : id for horizontal mesh113 108 !! 114 INTEGER nwritebio ,nitb,ndepitb,nhoritb115 COMMON/cibcdf/nwritebio ,nitb,ndepitb,nhoritb109 INTEGER nwritebio 110 COMMON/cibcdf/nwritebio 116 111 117 112 # endif -
trunk/NEMO/TOP_SRC/SMS/sms_p3zd.h90
r247 r260 13 13 !! 14 14 !!--------------------------------------------------------------------- 15 !! TOP 1.0 , LOCEAN-IPSL (2005) 16 !! $Header$ 17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 !! opa8, ipsl (11/96) 18 16 !!--------------------------------------------------------------------- 19 17 !! -
trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90
r247 r260 13 13 !! 14 14 !!--------------------------------------------------------------------- 15 !! TOP 1.0 , LOCEAN-IPSL (2005) 16 !! $Header$ 17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 !! opa8, ipsl (11/96) 18 16 !!--------------------------------------------------------------------- 19 17 !! -
trunk/NEMO/TOP_SRC/SMS/trcage.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/trcbio.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/trcbio.lobster1.h
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CCC -
trunk/NEMO/TOP_SRC/SMS/trcbio.npzd.h
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 C $Id$ 7 2 CCC -
trunk/NEMO/TOP_SRC/SMS/trcexp.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CCC $Header$ 7 2 SUBROUTINE trcexp -
trunk/NEMO/TOP_SRC/SMS/trcopt.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/trcsed.F
r247 r260 1 2 CCC $Header$3 CCC TOP 1.0 , LOCEAN-IPSL (2005)4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 C ---------------------------------------------------------------------------6 1 CC $Header$ 7 2 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/trp_trc.F90
r247 r260 1 1 MODULE trp_trc 2 !!---------------------------------------------------------------------- 3 !! TOP 1.0 , LOCEAN-IPSL (2005) 4 !! $Header$ 5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 !!---------------------------------------------------------------------- 2 7 3 #if defined key_passivetrc 8 4 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.