Changeset 1559 for trunk/NEMO/OPA_SRC/SBC

Timestamp:

2009-07-29T16:03:14+02:00 (15 years ago)

Author:

ctlod

Message:

only cosmetic changes

File:

• trunk/NEMO/OPA_SRC/SBC/sbcana.F90 (modified) (9 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcana.F90

@@ -4 +4 @@
    !! Ocean forcing:  analytical momentum, heat and freshwater forcings
    !!=====================================================================
-   !! History :  9.0   !  06-06  (G. Madec)  Original code
+   !! History :  3.0   ! 2006-06  (G. Madec)  Original code
+   !!            3.2   ! 2009-07  (G. Madec)  Style only
    !!----------------------------------------------------------------------
 
@@ -26 +27 @@
    PUBLIC   sbc_gyre   ! routine called in sbcmod module
 
-   !! * Namelist namsbc_ana
+   !                               !!* Namelist namsbc_ana *
    INTEGER  ::   nn_tau000 = 1      ! nb of time-step during which the surface stress
-      !                             ! increase from 0 to its nominal value 
+   !                                ! increase from 0 to its nominal value 
    REAL(wp) ::   rn_utau0  = 0.e0   ! constant wind stress value in i-direction
    REAL(wp) ::   rn_vtau0  = 0.e0   ! constant wind stress value in j-direction
@@ -39 +40 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !!   OPA 9.0 , LOCEAN-IPSL (2006) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -51 +52 @@
       !!              
       !! ** Purpose :   provide at each time-step the ocean surface boundary
-      !!      condition, i.e. the momentum, heat and freshwater fluxes.
+      !!              condition, i.e. the momentum, heat and freshwater fluxes.
       !!
       !! ** Method  :   Constant and uniform surface forcing specified from
-      !!      namsbc_ana namelist parameters. All the fluxes are time inde-
-      !!      pendant except the stresses which increase from zero during
-      !!      the first nn_tau000 time-step 
-      !!      * C A U T I O N : never mask the surface stress field !
+      !!              namsbc_ana namelist parameters. All the fluxes are time
+      !!              independant except the stresses which increase from zero
+      !!              during the first nn_tau000 time-step 
+      !!                CAUTION : never mask the surface stress field !
       !!
       !! ** Action  : - set the ocean surface boundary condition, i.e.  
@@ -64 +65 @@
       INTEGER, INTENT(in) ::   kt       ! ocean time step
       !!
-      INTEGER             ::   ji, jj          ! dummy loop indices
       REAL(wp)            ::   zfacto          ! local scalar
       !!
@@ -100 +100 @@
       ENDIF
 
-      ! Estimation of wind speed as a function of wind stress ( |tau|=rhoa*Cd*|U|^2 )
-      CALL sbc_tau2wnd
+      CALL sbc_tau2wnd      ! Estimation of wind speed as a function of wind stress ( |tau|=rhoa*Cd*|U|^2 )
       !
    END SUBROUTINE sbc_ana
@@ -110 +109 @@
       !!                    ***  ROUTINE sbc_ana ***
       !!              
-      !! ** Purpose :   provide at each time-step the ocean surface boundary
-      !!      condition, i.e. the momentum, heat and freshwater fluxes.
+      !! ** Purpose :   provide at each time-step the GYRE surface boundary
+      !!              condition, i.e. the momentum, heat and freshwater fluxes.
       !!
       !! ** Method  :   analytical seasonal cycle for GYRE configuration.
-      !!      * C A U T I O N : never mask the surface stress field !
+      !!                CAUTION : never mask the surface stress field !
       !!
       !! ** Action  : - set the ocean surface boundary condition, i.e.   
@@ -122 +121 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt          ! ocean time step
-
+      !!
       INTEGER  ::   ji, jj                 ! dummy loop indices
       INTEGER  ::   zyear0                 ! initial year 
@@ -298 +297 @@
          WRITE(numout,*)'           raajj  = ', raajj
       ENDIF
-
+      !
    END SUBROUTINE sbc_gyre