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 393 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 393

Timestamp:

2006-03-10T12:04:36+01:00 (19 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

change key_AGRIF to key_agrif in NST_SRC

Location:

trunk/NEMO/NST_SRC

Files:

: 5 edited

agrif2model.F90 (modified) (1 diff)
agrif_opa_interp.F90 (modified) (1 diff)
agrif_opa_sponge.F90 (modified) (1 diff)
agrif_opa_update.F90 (modified) (1 diff)
agrif_user.F90 (modified) (2 diffs)

Legend:

: Unmodified
: Added
: Removed

trunk/NEMO/NST_SRC/agrif2model.F90

r390	r393
1		#if defined key_~~AGRIF~~
	1	#if defined key_agrif
2	2	! **************************************************************************
3	3	!!! Subroutine Agrif_Set_numberofcells

trunk/NEMO/NST_SRC/agrif_opa_interp.F90

r390	r393
1	1	!
2	2	Module agrif_opa_interp
3		#if defined key_~~AGRIF~~
	3	#if defined key_agrif
4	4	USE par_oce
5	5	USE oce

trunk/NEMO/NST_SRC/agrif_opa_sponge.F90

r390	r393
2	2
3	3	Module agrif_opa_sponge
4		#if defined key_~~AGRIF~~
	4	#if defined key_agrif
5	5	USE par_oce
6	6	USE oce

trunk/NEMO/NST_SRC/agrif_opa_update.F90

r390	r393
2	2
3	3	Module agrif_opa_update
4		#if defined key_~~AGRIF~~
	4	#if defined key_agrif
5	5	USE par_oce
6	6	USE oce

trunk/NEMO/NST_SRC/agrif_user.F90

-                      r390
+                      r393
 #if defined key_AGRIF
+#if defined key_agrif
       SUBROUTINE Agrif_InitWorkspace
+!
 …
       USE ice_oce
 #endif
 #if defined key_AGRIF
+#if defined key_agrif
      USE agrif_opa_update
      USE agrif_opa_interp

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: