Changeset 617 for trunk/NEMO/TOP_SRC/SMS/sms_lobster1.h90

Timestamp:

2007-02-21T14:03:10+01:00 (17 years ago)

Author:

opalod

Message:

* empty log message *

File:

• trunk/NEMO/TOP_SRC/SMS/sms_lobster1.h90 (modified) (7 diffs)

trunk/NEMO/TOP_SRC/SMS/sms_lobster1.h90

@@ -23 +23 @@
 !!----------------------------------------------------------------------
 !!
-!! COMMON/cotbio/ : biological parameters
+!!  biological parameters
 !! --------------------------------------------
 !!
@@ -87 +87 @@
       REAL remdmp(jpk,jptra)
 
-      COMMON/cotbio/  apmin,azmin,anmin,admin,  &
-                     redf,reddom,slopet,toptp,aknut,psinut,akno3,aknh4,rcchl,  &
-                     rgamma,toptgz,tmaxgz,rgz,  &
-                     rppz,taus,aks,filmax,rpnaz,rdnaz,eggzoo,tauzn,  &
-                     tmmaxp,tmminp,tmmaxz,tmminz,anumin,afdmin,taudn,  &
-                     vsed,tmumax,aki,  &
-                     tmaxr,tminr,remdmp,fdoml,taunn,taudomn,xhr,  &
-                     fphylab,fzoolab,fdetlab,fdbod
 !!
 !!
@@ -101 +93 @@
 !!----------------------------------------------------------------------
 !!
-!! COMMON/cottbd/ : biological trends 
+!!  biological trends 
 !! ------------------------------------------------------------------
 !!
@@ -114 +106 @@
       REAL trbio(jpi,jpj,jpk,jpdiabio)
 
-      COMMON/cittbd/ctrbio, ctrbil, ctrbiu
-
-      COMMON/cottbd/trbio
 !!
 !!    netcdf files and index COMMON biological trends files
@@ -127 +116 @@
 !!
       INTEGER nwritebio,nitb,ndepitb,nhoritb
-      COMMON/cibcdf/nwritebio,nitb,ndepitb,nhoritb
 
 #    endif 
+
 !!----------------------------------------------------------------------
 !!
-!! COMMON/cotopt/ : optical parameters
+!!  optical parameters
 !! -----------------------------------
 !!
@@ -149 +138 @@
       REAL xze(jpi,jpj)
       REAL xpar(jpi,jpj,jpk)
-      COMMON/cotopt/xze,xpar,xkr0,xkg0, &
-                     xkgp,xkrp,xlg,xlr,rpig
+
 !!----------------------------------------------------------------------
 !!
-!! COMMON/cotsedim/ : sediment parameters
+!!  sediment parameters
 !! --------------------------------------
 !!
@@ -171 +159 @@
       REAL fbod(jpi,jpj),cmask(jpi,jpj),areacot
 
-      COMMON/cotsedim/sedlam,dmin3,dminl,fbod,sedlostpoc, &
-         &               sedpoca, sedpocb, sedpocn, &
-         &                cmask, areacot