Changeset 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/ICB

Timestamp:

2017-02-06T10:25:03+01:00 (7 years ago)

Author:

timgraham

Message:

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge --reintegrate ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.

Location:

trunk/NEMOGCM/NEMO/OPA_SRC/ICB

Files:

• icbini.F90 (modified) (2 diffs)
• icbutl.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

@@ -372 +372 @@
       IF(lwp) THEN
          WRITE(numout,*)
-         WRITE(numout,*) 'icbini :   AGRIF is not compatible with namelist namberg :  '
-         WRITE(numout,*) '         definition of rn_initial_mass(nclasses) with nclasses as PARAMETER '
-         WRITE(numout,*) ' namelist namberg not read'
+         WRITE(numout,*) 'icbini : AGRIF is not compatible with namelist namberg :  '
+         WRITE(numout,*) '~~~~~~   definition of rn_initial_mass(nclasses) with nclasses as PARAMETER '
+         WRITE(numout,*) '         ==>>>   force  NO icebergs used. The namelist namberg is not read'
       ENDIF
       ln_icebergs = .false.      
@@ -381 +381 @@
          IF(lwp) THEN
             WRITE(numout,*)
-            WRITE(numout,*) 'icbini :   Namelist namberg ln_icebergs = F , NO icebergs used'
-            WRITE(numout,*) '~~~~~~~~ '
+            WRITE(numout,*) 'icbini : Namelist namberg ln_icebergs = F , NO icebergs used'
+            WRITE(numout,*) '~~~~~~ '
          ENDIF
          RETURN

trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90

@@ -72 +72 @@
       uo_e(:,:) = 0._wp ;   uo_e(1:jpi, 1:jpj) = ssu_m(:,:) * umask(:,:,1)
       vo_e(:,:) = 0._wp ;   vo_e(1:jpi, 1:jpj) = ssv_m(:,:) * vmask(:,:,1)
-      ff_e(:,:) = 0._wp ;   ff_e(1:jpi, 1:jpj) = ff   (:,:) 
+      ff_e(:,:) = 0._wp ;   ff_e(1:jpi, 1:jpj) = ff_f (:,:) 
       tt_e(:,:) = 0._wp ;   tt_e(1:jpi, 1:jpj) = sst_m(:,:)
       fr_e(:,:) = 0._wp ;   fr_e(1:jpi, 1:jpj) = fr_i (:,:)