Changeset 389 for trunk/NEMO/OPA_SRC/SBC/flxrnf.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/SBC/flxrnf.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/flxrnf.F90

@@ -104 +104 @@
 # endif
       CHARACTER (len=32) ::   &
-         clname = 'runoff_1m_nomask'       ! monthly runoff filename
+         clname                            ! monthly runoff filename
       INTEGER, PARAMETER :: jpmois = 12
       INTEGER  ::   ipi, ipj, ipk          ! temporary integers
@@ -117 +117 @@
          zcoefr                            ! coeff of advection link to runoff
       !!----------------------------------------------------------------------
+         clname = 'runoff_1m_nomask'       ! monthly runoff filename
       
       IF( kt == nit000 ) THEN
@@ -266 +267 @@
          ! when reading the NetCDF file runoff_1m_nomask.nc
          IF( cp_cfg == 'orca' .AND. jp_cfg == 2 )   THEN
-            DO jj = 1, jpj
-               DO ji = 1, jpi
-                  IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 )   runoff(ji,jj) = 0.85 * runoff(ji,jj)
-               END DO
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 )   runoff(ji,jj) = 0.85 * runoff(ji,jj)
             END DO
+         END DO
          ENDIF