New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3040 – NEMO

Changeset 3040


Ignore:
Timestamp:
2011-11-03T17:20:17+01:00 (12 years ago)
Author:
charris
Message:

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

Location:
branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90

    r2874 r3040  
    99   !!              -   !  2006-08  (G. Madec)  style  
    1010   !!             3.2  !  2006-08  (S. Masson, G. Madec)  suppress useless variables + style  
     11   !!             3.4  !  2011-11  (C. Harris)  minor changes for CICE constants  
    1112   !!---------------------------------------------------------------------- 
    1213 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

    r2874 r3040  
    55   !!====================================================================== 
    66   !! History :  9.0  !  05-07  (C. Talandier) original code 
     7   !!            3.4  !  11-11  (C. Harris) decomposition changes for running with CICE 
    78   !!---------------------------------------------------------------------- 
    89   USE dom_oce          ! ocean space and time domain variables 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

    r2874 r3040  
    125125      !!        !  98-05  (M. Imbard, J. Escobar, L. Colombet )  SHMEM and MPI versions 
    126126      !!   8.5  !  02-08  (G. Madec)  F90 : free form 
     127      !!   3.4  !  11-11  (C. Harris) decomposition changes for running with CICE 
    127128      !!---------------------------------------------------------------------- 
    128129      INTEGER  ::   ji, jj, jn   ! dummy loop indices 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r2884 r3040  
    66   !! History :  3.0  ! 2006-08  (G. Madec)  Surface module 
    77   !!            3.2  ! 2009-06  (S. Masson) merge with ice_oce 
    8    !!            4.0  ! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
     8   !!            3.3.1! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
     9   !!            3.4  ! 2011-11  (C. Harris) CICE added as an option 
    910   !!---------------------------------------------------------------------- 
    1011#if defined key_lim3 || defined key_lim2 || defined key_cice 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r2874 r3040  
    1414   !!            3.2  !  2009-04  (B. Lemaire)  Introduce iom_put 
    1515   !!            3.3  !  2010-10  (S. Masson)  add diurnal cycle 
     16   !!            3.4  !  2011-11  (C. Harris) Fill arrays required by CICE 
    1617   !!---------------------------------------------------------------------- 
    1718 

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

    r2998 r3040  
    9494      !!                CICE Sea Ice Model time stepping  
    9595      !! 
    96       !! ** Method  : - Extra forcing fields for CICE   
     96      !! ** Method  : - Get any extra forcing fields for CICE   
     97      !!              - Prepare forcing fields 
    9798      !!              - CICE model time stepping 
    9899      !!              - call the routine that computes mass and  
    … …  
    131132      !!--------------------------------------------------------------------- 
    132133      !!                    ***  ROUTINE cice_sbc_init  *** 
    133       !! ** Purpose: Initialise ice concentation for NEMO and coupling 
     134      !! ** Purpose: Initialise ice related fields for NEMO and coupling 
    134135      !! 
    135136      INTEGER, INTENT( in  ) ::   nsbc ! surface forcing type 
    … …  
    183184      !!--------------------------------------------------------------------- 
    184185      !!                    ***  ROUTINE cice_sbc_in  *** 
    185       !! ** Purpose: Set GBM coupling fields needed for CICE 
     186      !! ** Purpose: Set coupling fields and pass to CICE 
    186187      !! 
    187188      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    … …  
    283284        CALL nemo2cice(ztmp,fsurfn_f(:,:,jpl,:),'T', 1. ) 
    284285     ENDDO 
    285  
    286 ! ------------------------------------------------------------------------------- 
    287 ! - sga 
    288 ! - core forcing 
    289 !   allow for extra dimension in input arrays 
    290286 
    291287     ELSE IF (nsbc == 4) THEN 
    … …  
    379375      !!--------------------------------------------------------------------- 
    380376      !!                    ***  ROUTINE cice_sbc_out  *** 
    381       !! ** Purpose: Set coupling fields needed for NEMO 
     377      !! ** Purpose: Get fields from CICE and set surface fields for NEMO 
    382378      !! 
    383379      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    … …  
    544540      !!--------------------------------------------------------------------- 
    545541      !!                    ***  ROUTINE cice_sbc_hadgam  *** 
    546       !! ** Purpose: Prepare fields needed to pass to HadGEM3 atmosphere 
     542      !! ** Purpose: Prepare fields needed to pass to HadGAM3 atmosphere 
    547543      !!  
    548544      !! 
    … …  
    689685      sprecip(:,:) = sf(jp_snow)%fnow(:,:,1) 
    690686      tprecip(:,:) = sf(jp_snow)%fnow(:,:,1)+sf(jp_rain)%fnow(:,:,1) 
    691 ! May be better to do this conversion somewhere else???? 
     687! May be better to do this conversion somewhere else 
    692688      qla_ice(:,:,1) = -Lsub*sf(jp_sblm)%fnow(:,:,1) 
    693689      topmelt(:,:,1) = sf(jp_top1)%fnow(:,:,1) 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r2998 r3040  
    1111   !!             -   ! 2010-11  (G. Madec) ice-ocean stress always computed at each ocean time-step 
    1212   !!             -   ! 2010-10  (J. Chanut, C. Bricaud, G. Madec)  add the surface pressure forcing 
     13   !!            3.4  ! 2011-11  (C. Harris) CICE added as an option 
    1314   !!---------------------------------------------------------------------- 
    1415 

  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2874 r3040  
    2727   !!            3.3  ! 2010-05  (K. Mogensen, A. Weaver, M. Martin, D. Lea) Assimilation interface  
    2828   !!             -   ! 2010-10  (C. Ethe, G. Madec) reorganisation of initialisation phase 
    29    !!            4.0  ! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
     29   !!            3.3.1! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
     30   !!            3.4  ! 2011-11  (C. Harris) decomposition changes for running with CICE 
    3031   !!---------------------------------------------------------------------- 
    3132 
Note: See TracChangeset for help on using the changeset viewer.