Changeset 88 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -131 +131 @@
       IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA
 
-      CALL opa_flg
                                             ! Domain decomposition
       IF( jpni*jpnj == jpnij ) THEN
@@ -173 +172 @@
 #endif
 
+      !                                     ! Ocean scheme
+
+      CALL opa_flg                              ! Choice of algorithms
+
       !                                     ! Ocean physics
 
-      CALL tra_qsr_init                         ! Salor radiation penetration
+      CALL tra_qsr_init                         ! Solar radiation penetration
 
       CALL ldf_dyn_init                         ! Lateral ocean momentum physics