Changeset 3040 for branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2011-11-03T17:20:17+01:00 (12 years ago)

Author:

charris

Message:

#665 Tidied up comments, history information in headers etc.

File:

• branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (7 diffs)

branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -94 +94 @@
       !!                CICE Sea Ice Model time stepping 
       !!
-      !! ** Method  : - Extra forcing fields for CICE  
+      !! ** Method  : - Get any extra forcing fields for CICE  
+      !!              - Prepare forcing fields
       !!              - CICE model time stepping
       !!              - call the routine that computes mass and 
@@ -131 +132 @@
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE cice_sbc_init  ***
-      !! ** Purpose: Initialise ice concentation for NEMO and coupling
+      !! ** Purpose: Initialise ice related fields for NEMO and coupling
       !!
       INTEGER, INTENT( in  ) ::   nsbc ! surface forcing type
@@ -183 +184 @@
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE cice_sbc_in  ***
-      !! ** Purpose: Set GBM coupling fields needed for CICE
+      !! ** Purpose: Set coupling fields and pass to CICE
       !!
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
@@ -283 +284 @@
         CALL nemo2cice(ztmp,fsurfn_f(:,:,jpl,:),'T', 1. )
      ENDDO
-
-! -------------------------------------------------------------------------------
-! - sga
-! - core forcing
-!   allow for extra dimension in input arrays
 
      ELSE IF (nsbc == 4) THEN
@@ -379 +375 @@
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE cice_sbc_out  ***
-      !! ** Purpose: Set coupling fields needed for NEMO
+      !! ** Purpose: Get fields from CICE and set surface fields for NEMO
       !!
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
@@ -544 +540 @@
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE cice_sbc_hadgam  ***
-      !! ** Purpose: Prepare fields needed to pass to HadGEM3 atmosphere
+      !! ** Purpose: Prepare fields needed to pass to HadGAM3 atmosphere
       !! 
       !!
@@ -689 +685 @@
       sprecip(:,:) = sf(jp_snow)%fnow(:,:,1)
       tprecip(:,:) = sf(jp_snow)%fnow(:,:,1)+sf(jp_rain)%fnow(:,:,1)
-! May be better to do this conversion somewhere else????
+! May be better to do this conversion somewhere else
       qla_ice(:,:,1) = -Lsub*sf(jp_sblm)%fnow(:,:,1)
       topmelt(:,:,1) = sf(jp_top1)%fnow(:,:,1)